Otherware/Otherware_1_SB_Development.iso/mac/hypercar/xcmd/macintal.sit/MacinTalk Stack/card_5903.txt

Text File | 1989-05-27 | 9.7 KB | 413 lines

-- card: 5903 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2707
-- name: MacinTalk Demonstration
----- HyperTalk script -----
on openCard
  hide message box
end openCard



-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=4 top=76 right=98 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Generate phonemes
----- HyperTalk script -----
on mouseUp
  Speak convert, card field rawtext
  put the result into card field phonemetext
  put "" into card field errortext
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=4 top=49 right=71 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quick Speak
----- HyperTalk script -----
on mouseUp
  Speak words,card field rawtext
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=4 top=209 right=231 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Speak phonemes
----- HyperTalk script -----
on mouseUp
  Speak phonemes, card field phonemetext
  if the result <> "Ok" then
    put the result into card field errortext
  else
    put "" into card field errortext
  end if
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=4 top=106 right=204 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rawtext


-- part 8 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=3 top=237 right=334 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: phonemetext
----- HyperTalk script -----
on openField
  put "" into card field errortext
end openField


-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=293 top=51 right=74 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Robotic Speech
----- HyperTalk script -----
on mouseUp
  if word 1 of the short name of me = "Robotic"
  then
  Speak voice,robotic
  Speak "Voice now set to robotic tone"
  set the name of me to "Natural Speech"
else
  Speak voice,natural
  Speak "Voice now set to natural tone"
  set the name of me to "Robotic Speech"
end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=293 top=77 right=99 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Volume Level
----- HyperTalk script -----
on mouseUp
  put VolumeLevel() into cvol
  ask "Volume level (1 -> 7)?" with cvol
  if it = cvol or it = "" then
    speak "No change"
  else if (it > 0) and (it < 8) then
    put VolumeLevel(it) into ig
    speak "Vol youmm level now" && it
  else
    speak "Out of range, vol youmm level left at" && cvol
  end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=407 top=77 right=99 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pitch
----- HyperTalk script -----
on mouseUp
  ask "Pitch?" with 110
  Speak pitch,it
  Speak "Pitch set to" && it && "hertz"
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=407 top=51 right=74 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: WPM
----- HyperTalk script -----
on mouseUp
  ask "WPM?" with 150
  Speak rate,it
  Speak "Words per minute set to " & the result
end mouseUp



-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=132 top=212 right=232 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: errortext


-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=294 top=26 right=48 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name:


-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=211 top=49 right=100 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Card Tutorial
----- HyperTalk script -----
on mouseUp
  -- clean up and initialise
  put "" into card field rawtext
  put "" into card field phonemetext
  put "" into card field errortext
  put item 1 of rect of card field rawtext into rawX
  put item 2 of rect of card field rawtext into rawY
  --
  Speak "This card allows you to experiment with MacinTalk."
  Speak "To start, you first type some text into the top field."
  click at rawX+1,rawY+1
  type "This is a MacinTalk interface to HyperCard."
  Speak "Then press the button Generate phonemes"
  click at the loc of card button "Generate phonemes"
  wait 20
  Speak "You will now see that the phonemes for the text have been generated and placed into the lower field"
  Speak "You may now have the phonemes spoken by pressing Speak phonemes"
  click at the loc of card button "Speak phonemes"
  wait 20
  Speak "As you herd, MacinTalk cannot say HyperCard very well!"
  Speak "To correct this you can edit the phonemes."
  Speak "In this case you should change the phoneme I.H. to A.Y."
  select char 3 to 4 of word 7 of card field phonemetext
  wait 20
  put "AY" into the selection
  Speak "Now try Speak phonemes again."
  click at the loc of card button "Speak phonemes"
  wait 20
  Speak "Thats sounds much better, doesn't it!"
  wait 20
  Speak "Now a quick tour of the other buttons."
  set hilite of card button "Quick speak" to true
  Speak "This button will cause the text in the upper field" && "to be spoken without generating the intermediate phonemes."
  set hilite of card button "Quick speak" to false
  set hilite of card button ID 10 to true
  Speak "Switch MacinTalk between natural and robotic voices."
  set hilite of card button ID 10 to false
  set hilite of card button "Volume Level" to true
  Speak "Set the volume level."
  set hilite of card button "Volume Level" to false
  set hilite of card button "WPM" to true
  Speak "Change the number of words per minute that MacinTalk will speak at."
  Speak "The standard rate is one hundred and fifty."
  set hilite of card button "WPM" to false
  set hilite of card button "Pitch" to true
  Speak "Change the pitch of speech."
  Speak "The standard pitch is one hundred and ten hertz."
  set hilite of card button "Pitch" to false
  set hilite of card button "Phoneme Table…" to true
  Speak "This button displays a table of phonemes"
  set hilite of card button "Phoneme Table…" to false
  Speak "This is the end of the tutorial. Happy phoneming!"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=475 top=11 right=43 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 29484 / 29484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=11 right=43 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 3835 / 3835
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to card "Introduction"
end mouseUp



-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=52 top=3 right=24 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 768
-- line height: 24
-- part name:


-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=37 top=11 right=43 bottom=73
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=389 top=209 right=231 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phoneme Table╔
----- HyperTalk script -----
on mouseUp
  push card
  visual effect iris open
  go to card "phoneme table"
end mouseUp




-- part contents for card part 18
----- text -----
Change Settings…

-- part contents for card part 22
----- text -----
MacinTalk Demonstrator

-- part contents for card part 7
----- text -----
Type your English text here.

-- part contents for card part 8
----- text -----
TAYP YOHR FAH1NIY4M TEH1KST /HIYR. #